Option Explicit
Sub E_Sample010()
   	'ո E_Data01u@
    Dim myRng    As Range
    Dim myCnt    As Variant
    Dim myKey    As String
    Dim myErrNum As Long
    Set myRng = Columns("C:H")				'jMӷd
    myKey = ""					'jM󪺫w
    myCnt = Application.VLookup(myKey, myRng, 6, False)	'jM󪺫w
    If TypeName(myCnt) <> "Error" Then
        MsgBox myKey & "XpƬ" & myCnt & "C"
    Else
        MsgBox "SŦX󪺸"
    End If
    Set myRng = Nothing						'
End Sub

